version 14.2

log using "dhimaetal_replication_paper.log", replace

#delimit ;

*     *********************************************************************** 	*;
*     *********************************************************************** 	*;
*       File-Name:      dhimaetal_replication_paper.do				        	*;
*       Date:           August 15, 2020                                       	*;
*       Author:         KD, SNG, LBS, KVDS                                      *;
*       Purpose:       	Take dhimaetal_data.dta and replicate paper analysis	*;
* 	    Input File:     dhimaetal_data.dta"										*;
*       Output File:     dhimaetal_replication_paper.log			     		*;
*       Data Output:    						                	          	*;            
*       Previous file:    														*;
*       Machine:        desktop/laptop         									*;
*     *********************************************************************** 	*;
*     *********************************************************************** 	*;

*set working directory


use "dhimaetal_data.dta", clear;


*     *********************************************************************** 	*;
*		Paper Analysis															*;
*     *********************************************************************** 	*;


*	**************************************************************	*;
*   **************************************************************	*;
*		Figure 1: Mean votes for women under all 3 electoral		*;
*		systems for treatment Groups 1 and 2						*; 
*   **************************************************************	*;
*	**************************************************************	*;

* Group 1
label variable fptpwoman "SMD";
label variable CLPR15woman "Closed List PR";
label variable OLPRfemale "Open List PR";

*Group 2
label variable CLPR5woman "Closed List PR";
label variable STVwoman "STV";

*Group 1
ciplot fptpwoman CLPR15woman OLPRfemale if gender<3 & CLPR!=. & votefptp!=. & OLPRParty!=., ysc(r(0.25 0.45)) ylabel(0.25 0.30 0.35 0.40 0.45) scheme(burd);
graph save fig_1a, replace;


* Group 2
ciplot fptpwoman CLPR5woman STVwoman if gender<3 & votefptp!=. & CLPR5_Lib!=. & STVwoman!=., scheme(burd);
graph save fig_1b, replace;

graph combine fig_1a.gph fig_1b.gph, scheme(burd);
graph export fig_1.png, replace;



*	**************************************************************	*;
*   **************************************************************	*;
*		Figure 2: Coefficient Plot with results for the 			*;
*		propensity to vote for a woman under OLPR and STV			*;
*	**************************************************************	*;
*   **************************************************************	*;

*OLPR
logit OLPRfemale  FemaleStrongGenderIdentity MaleWeakGenderIdentity MaleStrongGenderIdentity FemaleStrongStereotypes MaleStrongStereotypes leftright InfoCandidates FPTPFemaleIncumbent FPTPFemaleNoInc FPTPMaleNoInc CLPR15woman age UniversityEducation if gender<3 &  votefptp!=. & CLPR!=. & OLPRParty!=.;
est stor a;

*STV

logit STVwoman  FemaleStrongGenderIdentity MaleWeakGenderIdentity MaleStrongGenderIdentity FemaleStrongStereotypes MaleStrongStereotypes leftright InfoCandidates FPTPFemaleIncumbent FPTPFemaleNoInc FPTPMaleNoInc CLPR5woman age UniversityEducation if gender<3 & votefptp!=. & CLPR5Party!=.  & STVParty!=.;
est stor b;


coefplot a, bylabel(OLPR) || b, bylabel(STV)||, 
	nolabel byopts(row(1)) drop(_cons) omitted baselevels xline(0) msymbol(s) 
	rename(FemaleStrongGenderIdentity="Woman resp. with strong gender identity" 
	MaleWeakGenderIdentity="Man resp. with weak gender identity" 
	MaleStrongGenderIdentity="Man resp. with strong gender identity" 
	FemaleStrongStereotypes="Woman resp. with strong negative stereotypes about women" 
	MaleStrongStereotypes="Man resp. with strong negative stereotypes about women" 
	leftright="Ideological self-placement" 
	InfoCandidates="Familiar with Candidates" 
	FPTPFemaleIncumbent="Voted for woman incumbent under SMP" 
	FPTPFemaleNoInc="Voted for woman nonincumbent under SMP" 
	PTPMaleNoInc="Voted for man nonincumbent under SMP" 
	CLPR15woman="Fraction of women candidates (CLPR, DM=15)" 
	CLPR5woman="Fraction of women candidates (CLPR, DM=5)" 
	age="Age" UniversityEducation="Education - University") scheme(burd);	

	

graph export fig_2.png, replace;


*	**************************************************************	*;
*   **************************************************************	*;
*		REPLICATION COMPLETE										*;
*	**************************************************************	*;
*   **************************************************************	*;

log close;

clear;
